home *** CD-ROM | disk | FTP | other *** search
XSetup plugin | 2000-07-12 | 1.1 KB | 45 lines |
- "FILE"="Xteq Systems X-Setup Plugin 5.0"
- "TYPE"="5"
- "COUNT"="1"
- "UIPATH"="Program Options\Built in Windows Apps\Microsoft Management Console"
- "NAME"="Clear MMC Recent Files"
- "VERSION"="1.02"
- "LANGUAGE"="VBScript"
- "TEXT 1"="Clear recent files-MMC"
- "DESCRIPTION 1"="To Clear Recent Files in Microsoft Management Console [MMC], Click on Button."
- "AUTHOR"="Ojatex@aol.com"
- "CONTACTURL"="http://members.aol.com/ojatex/"
- "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
- "COMMENT 1"=" "
- "COMMENT 2"="Thanks to CptSiskoX for plugin suggestion & settings."
-
- sP="HKEY_CURRENT_USER\Software\Microsoft\Microsoft Management Console\Recent File List\"
-
- Sub Plugin_Initialize
- If RegPathExists(sP)=false then
- Disable()
- end if
- End Sub
-
- Sub Plugin_CheckData(ElementIndex)
- End Sub
-
- Sub Plugin_Apply(ElementIndex,ElementSubIndex)
- if ElementIndex=1 then
- for l=1 to 30
- s="File" & l
- v=RegReadValue(sP & s)
-
- If IsEmpty(v)=false then
- Call RegDeleteValue(sP & S)
- end if
- Next
-
- Call MsgInformation("Cleared!")
- end if
-
- End Sub
-
- Sub Plugin_Terminate
- End Sub
-